home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #116 (1991-03)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #116 (1991-03)(Amiga User Group Deutschland e.V.).adf / Börse / Börse (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-07-03  |  4KB  |  192 lines
  1. REM Aktienberechnungen | Diese Program ist Public Domain
  2. REM Autor: Jakob Woehrle    Talstr. 65    7620 Wolfach/Kirnbach
  3.  
  4.  
  5. SCREEN 1,640,256,2,2
  6. WINDOW 1,"BÖRSE V 1.0"
  7.  
  8. anfang:
  9.  
  10. CLS
  11.  
  12. taste$=""
  13. tast$=""
  14. tas$=""
  15.  
  16. LOCATE 10,8
  17. PRINT "- 1 -  Ankauf"
  18. LOCATE 11,8
  19. PRINT "- 2 -  Verkauf"
  20.  
  21. taste:
  22. taste$=INKEY$
  23. IF taste$="1" THEN 
  24.   GOTO weiter
  25. ELSEIF taste$="2" THEN
  26.   GOTO weiter
  27. ELSE
  28.   GOTO taste
  29. END IF
  30. SLEEP
  31.  
  32. weiter:
  33.  
  34. CLS
  35.  
  36.  
  37. LOCATE 6,8
  38. INPUT "Kenn-Nummer : ",n
  39.  
  40. LOCATE 6,32
  41. INPUT "Bezeichnung : ",a$
  42.   
  43. LOCATE 7,8
  44. INPUT "Kurs        : ",k 
  45.  
  46. LOCATE 7,32
  47. INPUT "Stückzahl   : ",s
  48.  
  49. IF taste$="2" THEN
  50.    LOCATE 8,8
  51.    INPUT "Ankaufskurs : ",ank
  52. END IF
  53.  
  54. ag=2.5
  55.  
  56. y=s*ank
  57. g=y/100
  58. h=g/4
  59. l=y/100*0.06
  60.  
  61. kpr=y+g+h+l+ag
  62.  
  63. ges=k*s
  64.  
  65. PRINT "       --------------------------------------------------"
  66.  
  67. IF taste$="1" THEN
  68. LOCATE 9,8
  69. PRINT "Gesamtwert der Aktien              : "ges
  70. ELSE
  71. LOCATE 10,8
  72. PRINT "Gesamtwert der Aktien              : "ges
  73. END IF
  74.  
  75. PRINT "       --------------------------------------------------"
  76.  
  77. bp=ges/100
  78. IF bp<5 THEN bp=5
  79.  
  80. IF taste$="1" THEN
  81. LOCATE 11,8
  82. PRINT "Bankprovision                      : "bp  
  83. ELSE
  84. LOCATE 12,8
  85. PRINT "Bankprovision                      : "bp 
  86. END IF
  87.  
  88. bus=bp/4
  89.  
  90. IF taste$="1" THEN
  91. LOCATE 12,8
  92. PRINT "Börsenumsatzsteuer                 : "bus
  93. ELSE
  94. LOCATE 13,8
  95. PRINT "Börsenumsatzsteuer                 : "bus
  96. END IF
  97.  
  98. mc=ges/100*0.06
  99.  
  100. IF taste$="1" THEN
  101. LOCATE 13,8
  102. PRINT "Maklercourtage                     : "mc
  103. ELSE
  104. LOCATE 14,8
  105. PRINT "Maklercourtage                     : "mc
  106. END IF
  107.  
  108. IF taste$="1" THEN
  109. LOCATE 14,8
  110. PRINT "Abwicklungsgebühr                  : "ag
  111. ELSE
  112. LOCATE 15,8
  113. PRINT "Abwicklungsgebühr                  : "ag
  114. END IF
  115.  
  116. PRINT "       --------------------------------------------------"
  117.  
  118. IF taste$="1" THEN
  119.    ganzges=ges+bp+bus+mc+ag
  120.    PRINT "       Gesamtkosten der Aktien            : "ganzges
  121. ELSE
  122.    ganzges=ges-bp-bus-mc-ag
  123.    PRINT "       Gesamterlös der Aktien             : "ganzges
  124. END IF
  125.  
  126. IF taste$="2" THEN
  127.    PRINT "       Kaufpreis                          : "kpr
  128.    PRINT "       --------------------------------------------------"
  129.    gewinn=ganzges-kpr
  130.    PRINT "       Gesamtgewinn der Aktien            : "gewinn
  131. END IF
  132.    
  133. LOCATE 22,25
  134. PRINT "Drucken (+/-) ?"
  135.  
  136. tast:
  137. tast$=INKEY$
  138. IF tast$="+" THEN
  139.    LPRINT "          Kenn-Nummer             : "n
  140.    LPRINT "          Bezeichnung             :  "a$
  141.    LPRINT "          Kurs                    : "k
  142.    LPRINT "          Stückzahl               : "s
  143.    
  144.    IF taste$="2" THEN
  145.    LPRINT "          Ankaufskurs             : "ank
  146.    END IF
  147.    
  148.    LPRINT "          --------------------------------------"
  149.    LPRINT "          Gesamtwert der Aktien   : "ges
  150.    LPRINT "          --------------------------------------"
  151.    LPRINT "          Bankprovision           : "bp
  152.    LPRINT "          Börsenumsatzsteuer      : "bus
  153.    LPRINT "          Maklercourtage          : "mc
  154.    LPRINT "          Abwicklungsgebühr       : "ag
  155.    LPRINT "          --------------------------------------"
  156.  
  157.    IF taste$="1" THEN
  158.      LPRINT "          Gesamtkosten der Aktien : "ganzges
  159.    ELSE
  160.      LPRINT "          Gesamtgewinn der Aktien : "ganzges
  161.    END IF
  162.  
  163.    IF taste$="2" THEN
  164.      LPRINT "          Kaufpreis               : "kpr
  165.      LPRINT "          --------------------------------------"
  166.    gewinn=ganzges-kpr
  167.      LPRINT "          Gesamtgewinn der Aktien : "gewinn
  168.    END IF
  169.  
  170.    LPRINT:LPRINT
  171.    LOCATE 22,23
  172.    PRINT "                       "
  173.    GOTO ende:
  174. ELSEIF tast$="-" THEN
  175.    LOCATE 22,23
  176.    PRINT "                       "
  177.    GOTO ende
  178. END IF
  179. GOTO tast
  180. SLEEP
  181.  
  182. ende:
  183. LOCATE 22,30
  184. PRINT "  > taste <"
  185.  
  186. tas:
  187. tas$=INKEY$
  188. IF tas$<>"" GOTO anfang
  189. GOTO tas
  190. SLEEP
  191.  
  192.